Best of www.BestZips.com (Collector's Edition)/Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO/tutorial/adatu311.zip/ADD.ADA

Text File | 1996-01-10 | 158b | 8 lines

with Text_IO; use Text_IO;
procedure Add is
   package My_Int_IO is new Integer_IO(Integer); use My_Int_IO;
begin
   Put(2 + 2);
   New_Line;
end Add;